home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2510.ZIP / TRSOURCE.EXE / _TR_GETC.ASM < prev    next >
Assembly Source File  |  1990-10-22  |  991b  |  37 lines
  1. ; _TR_GETC.ASM
  2. ;
  3. ; by Ralph Davis, Leonard Zerman
  4. ; modified by Rick Spence
  5. ;
  6. ; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  7. ;
  8.  
  9.          PUBLIC    __TR_GETCH
  10.  
  11.  
  12. ;*******************************
  13. _TR_GETC_TEXT SEGMENT  BYTE PUBLIC 'CODE'
  14.          ASSUME   CS:_TR_GETC_TEXT
  15. ;-------------------------------
  16. __TR_GETCH PROC     FAR
  17. ;
  18. ;  SYNTAX:  __tr_getch()
  19. ;
  20. ; RETURNS:  Single character entered at keyboard
  21. ;           (Does not wait for <RETURN> key)
  22. ;
  23. ;----------------------
  24.           MOV      AH,7            ; Use function call 7
  25.                                    ;   to avoid Ctrl-Break checking
  26.                                    ;   (get key)
  27.           INT      21H
  28.           CBW                      ; Fill AX with AL sign-extended
  29.                                    ; (i.e. convert char to int)
  30.           RET
  31. __TR_GETCH ENDP
  32. ;-----------------------------
  33. _TR_GETC_TEXT     ENDS
  34. ;*****************************
  35.           END
  36.  
  37.